library(tidyverse)
library(qcc)Gráfico de Pareto
Introducción
Este es un ejemplo sobre como llevar a cabo gráficos de Pareto en R, usando la librería qcc. Este ejercicio es extraído del material del profesor Ing. Manrique Araya Alfaro.
Librerías
Ejercicio
En una fábrica de aparatos de línea blanca se han presentado problemas con la calidad de las lavadoras. Un grupo de mejora de la calidad decide revisar los problemas de la tina de las lavadoras, ya que con frecuencia es necesario retrabajarlas para que éste tenga una calidad aceptable. Para ello, estratificaron los problemas en la tina de lavadora por tipo de defecto, con la idea de localizar cual es desperfecto principal. A continuación, se muestra el análisis de los defectos encontrados en las tinas producidas en 5 meses.
Realice un análisis de Pareto y obtenga conclusiones.
Defecto <- c("Boca ovalada", "Perforaciones deformes",
"Boda despostillada", "Falta de fundente",
"Mal soldada")
Frecuencia <- c(1200, 400, 180, 130, 40)
data.frame(Defecto, Frecuencia) %>%
flextable::flextable(cwidth = 1.9) # este código es solo para presentar los datosDefecto | Frecuencia |
|---|---|
Boca ovalada | 1,200 |
Perforaciones deformes | 400 |
Boda despostillada | 180 |
Falta de fundente | 130 |
Mal soldada | 40 |
Ahora, realizamos el diagrama de Pareto.
# Sin nombres
qcc::pareto.chart(Frecuencia)
Pareto chart analysis for Frecuencia
Frequency Cum.Freq. Percentage Cum.Percent.
A 1200.000000 1200.000000 61.538462 61.538462
B 400.000000 1600.000000 20.512821 82.051282
C 180.000000 1780.000000 9.230769 91.282051
D 130.000000 1910.000000 6.666667 97.948718
E 40.000000 1950.000000 2.051282 100.000000
# Con nombres
names(Frecuencia) <- Defecto
qcc::pareto.chart(Frecuencia)
Pareto chart analysis for Frecuencia
Frequency Cum.Freq. Percentage Cum.Percent.
Boca ovalada 1200.000000 1200.000000 61.538462 61.538462
Perforaciones deformes 400.000000 1600.000000 20.512821 82.051282
Boda despostillada 180.000000 1780.000000 9.230769 91.282051
Falta de fundente 130.000000 1910.000000 6.666667 97.948718
Mal soldada 40.000000 1950.000000 2.051282 100.000000